TESCOM.VLI[VLI,LSP] - www.SailDart.org

perm filename TESCOM.VLI[VLI,LSP] blob sn#382070 filedate 1978-09-08 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(de f1 (x) (if (null x) x (lescape (f1 (cdr x))))))))
C00003 ENDMK
C⊗;
(de f1 (x) (if (null x) x (lescape (f1 (cdr x))))))))

(de f2 (x) (if (null x) x (f2 (cdr x)))))))

(de f3 (x) (if (null x) x (self (cdr x))))

(de f4 (x) (if (null x) x (lescape (self (cdr x)))))

(de f5 (x) (if (null x) y (f5 (cdr x))))

(de f6 (x) (if x (f6 (cdr x)) x))

(de f7 (x) ((lambda () x)))

(de f8 (x) (cond ((null x)) (x)))

(de f9 (x) (or (null x) x))

(de f10 () (while t (f10)))

(de f11 () (while (f11)))

(de f12 () (if (f12) nil t))

(de f13 (x) ((lambda (y) (self y)) x))